##############################################################################
###+-------+##################################################################
#+-| EJECT |------------------------------------------------------------+#####
#| +-------+ The EJECT command sends a carriage return (ASCII 13) and a |#####
#|           form feed (ASCII 12) to the default print device or device |#####
#|           specified by the SET PRINT TO <C-exp> command              |#####
#+----------------------------------------------------------------------+#####
##############################################################################
##############################################################################
#+--| Syntax |---+############################################################
#|     EJECT     |############################################################
#+---------------+############################################################
##############################################################################
##############################################################################
########+---| Description |--------------------------------------------+######
########| EJECT resets prow() and pcol() to 0.  EJECT sends a carriage |######
########| return and form feed directly to the device specified by     |######
########| SET PRINTER TO.  Although the print device is part of the    |######
########| same I/O system as the ? command, EJECT does not echo the    |######
########| carriage return, form feed to the screen.                    |######
########+--------------------------------------------------------------+######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Eject a page before LISTing output to a printer.    |#########
#########|                                                          |#########
#########| WAIT "Is list to go to printer? " TO yes                 |#########
#########| IF yes $ "Yy"                                            |#########
#########|     EJECT                   && clear the page.           |#########
#########|     LIST ALL TO PRINT                                    |#########
#########| ELSE                                                     |#########
#########|     LIST ALL                                             |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Eject a page when user turns on printer to          |#########
#########| *    prepare for a report.                               |#########
#########|                                                          |#########
#########| REPEAT                                                   |#########
#########|     ? "Turn on printer..."                               |#########
#########|     WAIT                                                 |#########
#########| UNTIL pready()                                           |#########
#########| EJECT                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################